Apple II Magazines (PO)/Nibble Volume 12, No. 08 (1991-08)(MindCraft Publishing)(Side A)[a].zip/Nibble Volume 12, No. 08 (1991-08)(MindCraft Publishing)(Side A)[a].po/ADDRESSER.bas

BASIC Source File | 1996-12-24 | 712b | 2 lines

10 D$ =  CHR$(4): INPUT "#OF ";L: INPUT "NA ";N$: INPUT "STREET ";S$: INPUT "CITY ST ";R$: INPUT "ZIP ";Z$:A =  LEN(N$):B =  LEN(S$):C =  LEN(R$):D =  LEN(Z$) +4:W = A >B  AND A >C  AND A >D:X = B >A  AND B >C  AND B >D:Y = C >A  AND C >B  AND C >D:Z = D >A  AND D >B  AND D >C:P = P +A *W:P = P +B *X:P = P +C *Y:P = P +D *Z
20  PRINT D$"PR#1": FOR I = 1 TO L: PRINT : FOR X = 1 TO 3: PRINT N$; SPC( P -A);" | ";: NEXT X: PRINT : FOR X = 1 TO 3: PRINT S$; SPC( P -B);" | ";: NEXT X: PRINT : FOR X = 1 TO 3: PRINT R$; SPC( P -C);" | ";: NEXT X: PRINT : FOR X = 1 TO 3: PRINT "ZIP ";Z$; SPC( P -D);" | ";: NEXT X: PRINT : FOR M = 1 TO (P *3) +6: PRINT "_";: NEXT M: PRINT : NEXT I: PRINT  CHR$(12): PRINT D$"PR#0"